home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Developer Source 6
/
developer source - volume 6.iso
/
parad
/
may96
/
parkf108.gif
< prev
next >
Tile
Graphics Interchange Format
|
1996-11-19
|
8.5 KB
|
661x301
|
4-bit (6 colors)
ocr:
ORDERS.FSLSaduliespushbiution - ADDITEM::PUSIBUEEOD method pushButton(uar eventinto Event) var tc TCursor enduar movelo(Parturdered) ;move cursor to "Partordered." ORDRDTL.action(Databegintdit) ;put table Frame into edit mode. ORDRDTL.moveTORecord(1) ,move to first record in table Frame. ORDRDTL.action(DatalnsertRecord) ;insert blank record in table Frame. CC.attacn(URDRDTL) attach TCursor to table Frame. tC.locatecIten", CC.Chax(Item")) locate "Item" field, get max value. Item = CC.CMaxtitem") + 1 endmethod Edit Line: 18 Col: 1